﻿//начало текста модуля

Перем Ванесса;
 
Функция ДобавитьШагВМассивТестов(МассивТестов,Снипет,ИмяПроцедуры,ПредставлениеТеста = Неопределено,Транзакция = Неопределено,Параметр = Неопределено)
	Структура = Новый Структура;
	Структура.Вставить("Снипет",Снипет);
	Структура.Вставить("ИмяПроцедуры",ИмяПроцедуры);
	Структура.Вставить("ИмяПроцедуры",ИмяПроцедуры);
	Структура.Вставить("ПредставлениеТеста",ПредставлениеТеста);
	Структура.Вставить("Транзакция",Транзакция);
	Структура.Вставить("Параметр",Параметр);
	МассивТестов.Добавить(Структура);
КонецФункции


Функция ПолучитьСписокТестов(КонтекстФреймворкаBDD) Экспорт
	Ванесса = КонтекстФреймворкаBDD;
	
	ВсеТесты = Новый Массив;

	//описание параметров
	//ДобавитьШагВМассивТестов(ВсеТесты,Снипет,ИмяПроцедуры,ПредставлениеТеста,Транзакция,Параметр);

	ДобавитьШагВМассивТестов(ВсеТесты,"ЯПередалВШагЧисловойПараметр(Парам01)","ЯПередалВШагЧисловойПараметр","Когда я передал в шаг числовой параметр -1");
	ДобавитьШагВМассивТестов(ВсеТесты,"ЯПередалВШагЧисловойПараметрВСерединеСтроки(Парам01)","ЯПередалВШагЧисловойПараметрВСерединеСтроки","И     я передал в шаг числовой параметр -2 в середине строки");
	ДобавитьШагВМассивТестов(ВсеТесты,"ВПеременнойКонтекстЕстьЗначениеМинус(Парам01)","ВПеременнойКонтекстЕстьЗначениеМинус","Тогда в переменной Контекст есть значение минус 1");

	Возврат ВсеТесты;
КонецФункции


Процедура ПередНачаломСценария() Экспорт
	
КонецПроцедуры


Процедура ПередОкончаниемСценария() Экспорт
	
КонецПроцедуры



//Я передал в шаг числовой параметр -1
//@КогдаЯПередалВШагЧисловойПараметр(Парам01)
Процедура ЯПередалВШагЧисловойПараметр(ПереданноеЧисло) Экспорт
	Контекст.Вставить("Число" + Контекст.Количество(),ПереданноеЧисло);
КонецПроцедуры


//Я передал в шаг числовой параметр -2 в середине строки
//@ИЯПередалВШагЧисловойПараметрВСерединеСтроки(Парам01)
Процедура ЯПередалВШагЧисловойПараметрВСерединеСтроки(ПереданноеЧисло) Экспорт
	Контекст.Вставить("Число" + Контекст.Количество(),ПереданноеЧисло);
КонецПроцедуры


//В переменной Контекст есть значение минус 1
//@ТогдаВПеременнойКонтекстЕстьЗначениеМинус(Парам01)
Процедура ВПеременнойКонтекстЕстьЗначениеМинус(ПереданноеЧисло) Экспорт
	Нашли = Ложь;
	Для каждого Элем Из Контекст Цикл
		Если Элем.Значение = -ПереданноеЧисло Тогда
			Нашли = Истина;
		КонецЕсли;	 
	КонецЦикла;
	
	Если Не Нашли Тогда
		ВызватьИсключение "Не нашел в контексте параметр -" + ПереданноеЧисло;
	КонецЕсли;	 
КонецПроцедуры

//окончание текста модуля
  